home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -screenplay- / shareware / muscarine / 27.room < prev    next >
Text File  |  2000-02-29  |  11KB  |  199 lines
  1. /* Mountain Elk
  2. /* Room script for GRAAL
  3. /* RF 1=0 elk still here 1=1 passed
  4. /* RF 11-15 random
  5. /* RF 9=counter RF 10=max count
  6.  
  7. /* UPDATE: scroll_frames[;normal_frames]
  8. /*
  9. UPDATE: 6;1
  10.  
  11. /* 3D: max;mid;min;adjspeed (This statement is optional)
  12. /*
  13. /* SECTION: SAME|section_no
  14. /*
  15. SECTION: 2
  16.  
  17. /* BACKDROP: file
  18. /*
  19. BACKDROP: 27BG.iff
  20.  
  21. /* START_POS: startpos_no;image;x;y;L|M|R;floor_no
  22. /*
  23. START_POS: 1;//SIMG11;20;162; ;1
  24.  
  25. /* FLOOR: floor_no;x1;y1;x2;y2;floormaps
  26. /*
  27. FLOOR: 1;0;133;222;168;1-1/2-2
  28. FLOOR: 2;165;118;319;157;1-1/2-2
  29.  
  30. /* PATH: path_no;floor1;floor2;px1;py1;px2;py2;[{more_points}] (This statement is optional)
  31. /*
  32. /* EXIT: exit_no;x1;y1;x2;y2;x;y;description (This statement is optional)
  33. EXIT: 1;292;101;319;159;319;125;peak
  34. EXIT: 2;0;128;27;169;2;163;valley
  35.  
  36. /* CLPART: file (This statement is optional)
  37. CLPART: 27FG.iff
  38.  
  39. /* ROOMIMGS: number;start_bob;x1;y1;w;h;x-offset;hotspot (This statement is optional)
  40. /* 1,2 elk
  41. ROOMIMGS: 2;1;0;0;90;81;90;41/0
  42. /* 3,4 MOOH MOOSE
  43. ROOMIMGS: 2;3;48;91;182;47;197;182/2
  44. /* 5,6 ELK ELK ELK
  45. ROOMIMGS: 2;5;48;149;182;47;197;182/2
  46. /* 7,8 GNN GNOOSE
  47. ROOMIMGS: 2;7;48;207;182;47;197;182/2
  48. /* 9,10,11 grrr
  49. ROOMIMGS: 3;9;6;276;162;79;167;162/34
  50.  
  51. /* STATIC: bob;image;x;y (This statement is optional)
  52. STATIC: 1;RIMG1;206;71
  53.  
  54. /* ANIM: bob;image;anim_ch;anim|ptrn;x;y (This statement is optional)
  55. /*
  56. /* ROOMOBJ: obj;name;room;VIS|NVIS;bob;image;x;y;cx;cy;cimage;prep;PICK|NPICK;anim_ch;verb;icon;LOW|MID|HIGH;types;w1;w2;w3 (This statement is optional)
  57. ROOMOBJ: 1;red bearded\mountain elk;27;VIS;2;RIMG1;206;71;-107;85;//SIMG13; ;NPICK;3;8; ; ;V ;a ;this ;it
  58.  
  59. /* DACT: {cond|comm}
  60. /*
  61. DACT: SETRF 12,2=1;LIGHTS ON;EXIT
  62.  
  63. /* LINE: dlg;line_no;sentence1;sentence2| ;{cond} (This statement is optional)
  64. /* LACT: dlg;line_no;{cond|comm} (This statement is optional)
  65.  
  66. /* quite tricky to flatten down some more or less simple while loops to a
  67. /* sequence. But it works... I hope.
  68. LINE: 14;1;MOOH MOOSE; ; 
  69. LACT: 14;1;IFRF 9=5;IFRF 15=2|3;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  70. LACT: 14;1;IFRF 9=5;IFRF 15=1;ADDRF 9
  71. LACT: 14;1;IFRF 9=4;IFRF 14=2|3;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  72. LACT: 14;1;IFRF 9=4;IFRF 14=1;ADDRF 9
  73. LACT: 14;1;IFRF 9=3;IFRF 13=2|3;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  74. LACT: 14;1;IFRF 9=3;IFRF 13=1;ADDRF 9
  75. LACT: 14;1;IFRF 9=2;IFRF 12=2|3;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  76. LACT: 14;1;IFRF 9=2;IFRF 12=1;ADDRF 9
  77. LACT: 14;1;IFRF 9=1;IFRF 11=2|3;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  78. LACT: 14;1;IFRF 9=1;IFRF 11=1;ADDRF 9
  79. LACT: 14;1;IFRF 9<=#R#27#10#;DSET 14,+1,+2,+3;EXIT /* loop while count <= maxcount
  80. /* inc max count    reset count
  81. LACT: 14;1;ADDRF 10;SETRF 9=1
  82. /* ready?
  83. LACT: 14;1;IFRF 10>5;BOBOFF 1;OMOVE ROBJ1,365,57,2, ,WAIT,A 0,(RIMG1,12)(RIMG2,12);SETRF 1=1;EDLG;EXIT
  84. /* elk speak 1
  85. LACT: 14;1;IFRF 11=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  86. LACT: 14;1;IFRF 11=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  87. LACT: 14;1;IFRF 11=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  88. /* elk speak 2
  89. LACT: 14;1;IFRF 10>=2;IFRF 12=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  90. LACT: 14;1;IFRF 10>=2;IFRF 12=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  91. LACT: 14;1;IFRF 10>=2;IFRF 12=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  92. /* elk speak 3
  93. LACT: 14;1;IFRF 10>=3;IFRF 13=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  94. LACT: 14;1;IFRF 10>=3;IFRF 13=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  95. LACT: 14;1;IFRF 10>=3;IFRF 13=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  96. /* elk speak 4
  97. LACT: 14;1;IFRF 10>=4;IFRF 14=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  98. LACT: 14;1;IFRF 10>=4;IFRF 14=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  99. LACT: 14;1;IFRF 10>=4;IFRF 14=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  100. /* elk speak 5
  101. LACT: 14;1;IFRF 10>=5;IFRF 15=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  102. LACT: 14;1;IFRF 10>=5;IFRF 15=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  103. LACT: 14;1;IFRF 10>=5;IFRF 15=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  104. /* answer
  105. LACT: 14;1;DSET 14,+1,+2,+3;EXIT
  106.  
  107. LINE: 14;2;ELK ELK ELK; ; 
  108. LACT: 14;2;IFRF 9=5;IFRF 15=1|3;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  109. LACT: 14;2;IFRF 9=5;IFRF 15=2;ADDRF 9
  110. LACT: 14;2;IFRF 9=4;IFRF 14=1|3;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  111. LACT: 14;2;IFRF 9=4;IFRF 14=2;ADDRF 9
  112. LACT: 14;2;IFRF 9=3;IFRF 13=1|3;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  113. LACT: 14;2;IFRF 9=3;IFRF 13=2;ADDRF 9
  114. LACT: 14;2;IFRF 9=2;IFRF 12=1|3;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  115. LACT: 14;2;IFRF 9=2;IFRF 12=2;ADDRF 9
  116. LACT: 14;2;IFRF 9=1;IFRF 11=1|3;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  117. LACT: 14;2;IFRF 9=1;IFRF 11=2;ADDRF 9
  118. LACT: 14;2;IFRF 9<=#R#27#10#;DSET 14,+1,+2,+3;EXIT /* loop while count <= maxcount
  119. /* inc max count    reset count
  120. LACT: 14;2;ADDRF 10;SETRF 9=1
  121. /* ready?
  122. LACT: 14;2;IFRF 10>5;BOBOFF 1;OMOVE ROBJ1,410,27,1, ,WAIT,A 0,(RIMG1,12)(RIMG2,12);SETRF 1=1;EDLG;EXIT
  123. /* elk speak 1
  124. LACT: 14;2;IFRF 11=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  125. LACT: 14;2;IFRF 11=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  126. LACT: 14;2;IFRF 11=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  127. /* elk speak 2
  128. LACT: 14;2;IFRF 10>=2;IFRF 12=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  129. LACT: 14;2;IFRF 10>=2;IFRF 12=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  130. LACT: 14;2;IFRF 10>=2;IFRF 12=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  131. /* elk speak 3
  132. LACT: 14;2;IFRF 10>=3;IFRF 13=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  133. LACT: 14;2;IFRF 10>=3;IFRF 13=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  134. LACT: 14;2;IFRF 10>=3;IFRF 13=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  135. /* elk speak 4
  136. LACT: 14;2;IFRF 10>=4;IFRF 14=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  137. LACT: 14;2;IFRF 10>=4;IFRF 14=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  138. LACT: 14;2;IFRF 10>=4;IFRF 14=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  139. /* elk speak 5
  140. LACT: 14;2;IFRF 10>=5;IFRF 15=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  141. LACT: 14;2;IFRF 10>=5;IFRF 15=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  142. LACT: 14;2;IFRF 10>=5;IFRF 15=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  143. /* answer
  144. LACT: 14;2;DSET 14,+1,+2,+3;EXIT
  145.  
  146. LINE: 14;3;GNN GNOOSE; ; 
  147. LACT: 14;3;IFRF 9=5;IFRF 15=2|1;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  148. LACT: 14;3;IFRF 9=5;IFRF 15=3;ADDRF 9
  149. LACT: 14;3;IFRF 9=4;IFRF 14=2|1;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  150. LACT: 14;3;IFRF 9=4;IFRF 14=3;ADDRF 9
  151. LACT: 14;3;IFRF 9=3;IFRF 13=2|1;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  152. LACT: 14;3;IFRF 9=3;IFRF 13=3;ADDRF 9
  153. LACT: 14;3;IFRF 9=2;IFRF 12=2|1;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  154. LACT: 14;3;IFRF 9=2;IFRF 12=3;ADDRF 9
  155. LACT: 14;3;IFRF 9=1;IFRF 11=2|1;SHOW ROBJ1,206,71,A 11,(RIMG9,6)(RIMG10,6)(RIMG11,3);W 150;SHOW ROBJ1,206,71,RIMG1;W 30;EDLG;EXIT
  156. LACT: 14;3;IFRF 9=1;IFRF 11=3;ADDRF 9
  157. LACT: 14;3;IFRF 9<=#R#27#10#;DSET 14,+1,+2,+3;EXIT /* loop while count <= maxcount
  158. /* inc max count    reset count
  159. LACT: 14;3;ADDRF 10;SETRF 9=1
  160. /* ready?
  161. LACT: 14;3;IFRF 10>5;BOBOFF 1;OMOVE ROBJ1,410,27,1, ,WAIT,A 0,(RIMG1,12)(RIMG2,12);SETRF 1=1;EDLG;EXIT
  162. /* elk speak 1
  163. LACT: 14;3;IFRF 11=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  164. LACT: 14;3;IFRF 11=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  165. LACT: 14;3;IFRF 11=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  166. /* elk speak 2
  167. LACT: 14;3;IFRF 10>=2;IFRF 12=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  168. LACT: 14;3;IFRF 10>=2;IFRF 12=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  169. LACT: 14;3;IFRF 10>=2;IFRF 12=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  170. /* elk speak 3
  171. LACT: 14;3;IFRF 10>=3;IFRF 13=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  172. LACT: 14;3;IFRF 10>=3;IFRF 13=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  173. LACT: 14;3;IFRF 10>=3;IFRF 13=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  174. /* elk speak 4
  175. LACT: 14;3;IFRF 10>=4;IFRF 14=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  176. LACT: 14;3;IFRF 10>=4;IFRF 14=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  177. LACT: 14;3;IFRF 10>=4;IFRF 14=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  178. /* elk speak 5
  179. LACT: 14;3;IFRF 10>=5;IFRF 15=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  180. LACT: 14;3;IFRF 10>=5;IFRF 15=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  181. LACT: 14;3;IFRF 10>=5;IFRF 15=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30
  182. /* answer
  183. LACT: 14;3;DSET 14,+1,+2,+3;EXIT
  184.  
  185. /* ACTION: verb_no;{cond|comm} (This statement is optional)
  186. ACTION: 0;IFOBJ 1;IFRF 1=1;MEXIT;GOTO 28,2
  187. ACTION: 0;IFOBJ 1;IFRF 1=0;CMOVE 90,150,C
  188. ACTION: =;SHOW ROBJ1,206,71,A 0,(RIMG9,6)(RIMG10,6)(RIMG11,3)
  189. ACTION: =;CMOVE 58,157,P;CIMG SIMG23;SAY How am I going to get past him?
  190. ACTION: =;SHOW ROBJ1,206,71,RIMG1;EXIT
  191. ACTION: 0;IFOBJ 2;MEXIT;GOTO 26,2
  192.  
  193. ACTION: 5;IFOBJ ROBJ1;MOBJ;SETRF 9=1;SETRF 10=1
  194. ACTION: =;SETRF 11=1|2|3;SETRF 12=1|2|3;SETRF 13=1|2|3;SETRF 14=1|2|3;SETRF 15=1|2|3
  195. ACTION: =;IFRF 11=1;SHOW ROBJ1,206,71,A 11,(RIMG3,6)(RIMG4,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30;DSET 14,+1,+2,+3;EXIT
  196. ACTION: =;IFRF 11=2;SHOW ROBJ1,206,71,A 11,(RIMG5,6)(RIMG6,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30;DSET 14,+1,+2,+3;EXIT
  197. ACTION: =;IFRF 11=3;SHOW ROBJ1,206,71,A 11,(RIMG7,6)(RIMG8,6);W 120;SHOW ROBJ1,206,71,RIMG1;W 30;DSET 14,+1,+2,+3;EXIT
  198. /* eof
  199.